Aminet 1/Aminet - June 1993 [Walnut Creek].iso/usenet/sources/volume90/unix/uucp106d/part04

Text File | 1990-06-28 | 61.6 KB | 2,910 lines

Path: xanth!cs.odu.edu!Amiga-Request
From: [e-mail] (Amiga Sources/Binaries Moderator)
Newsgroups: comp.sources.amiga
Subject: v90i182: UUCP 1.06D - UNIX compatible uucp/news/mail system, Part04/12
Message-ID: <[e-mail]>
Date: 28 Jun 90 12:22:31 GMT
Sender: [e-mail]
Reply-To: Matt Dillon <@uunet.uu.net:overload!dillon>
Lines: 2896
Approved: [e-mail] (Tad Guy)
X-Mail-Submissions-To: [e-mail]
X-Post-Discussions-To: comp.sys.amiga

Submitted-by: Matt Dillon <@uunet.uu.net:overload!dillon>
Posting-number: Volume 90, Issue 182
Archive-name: unix/uucp-1.06d/part04

#!/bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#        "End of archive 4 (of 12)."
# Contents:  uucp2/src/GUtil/gnote.c uucp2/src/GUtil/uuserdump.c
#   uucp2/src/anews/followup.c uucp2/src/anews/reply.c
#   uucp2/src/dmail/do_lists.c uucp2/src/dmail/range.c
#   uucp2/src/lib/config.c uucp2/src/lib/list_sort.c
#   uucp2/src/news/postnews.c uucp2/src/unix/tarsplit.c
#   uucp2/src/unix/uudecode.c uucp2/src/uucico/modem.c
#   uucp2/src/uucico/uucp.c uucp2/src/uucico/uux.c
# Wrapped by tadguy@xanth on Thu Jun 28 08:21:21 1990
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'uucp2/src/GUtil/gnote.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'uucp2/src/GUtil/gnote.c'\"
else
echo shar: Extracting \"'uucp2/src/GUtil/gnote.c'\" \(3473 characters\)
sed "s/^X//" >'uucp2/src/GUtil/gnote.c' <<'END_OF_FILE'
X
X/*
X *  GNOTE.C
X *
X *  $Header: Beta:src/uucp/src/GUtil/RCS/gnote.c,v 1.1 90/02/02 11:58:55 dillon Exp Locker: dillon $
X *
X *  (C) Copyright 1989-1990 by Matthew Dillon,  All Rights Reserved.
X *
X *  GNOTE hellofile notefile
X *
X *  Allow the user to enter a note and append it to notefile.  See
X *  Getty. Password entry should have a '*' in front of the executable
X *  name for Getty to provide automatic stdin/stdout
X *
X */
X
X#include <stdio.h>
X#include <time.h>
X#include "protos.h"
X#include "version.h"
X
XIDENT(".01");
X
Xchar *GetLine();
Xvoid PutDaChar();
Xvoid FlushChars();
X
Xmain(ac, av)
Xchar *av[];
X{
X    time_t t;
X    char *ptr;
X    FILE *fi;
X
X    time(&t);
X
X    if (ac < 3) {
X    printf("gnote: expect 2 arguments, got %d\n", ac - 1);
X    fflush(stdout);
X    Delay(50*2);
X    exit(1);
X    }
X    printf("%s %s", Ident, ctime(&t));
X    if (fi = fopen(av[1], "r")) {
X    char buf[128];
X    while (fgets(buf, sizeof(buf), fi)) {
X        short len = strlen(buf);
X        if (len > 0 && buf[len-1] == '\n')
X        --len;
X        buf[len++] = 13;
X        buf[len++] = 10;
X        buf[len++] = 0;
X        fputs(buf, stdout);
X    }
X    fclose(fi);
X    }
X    fflush(stdout);
X
X    if ((fi = fopen(av[2], "a")) == NULL) {
X    puts("couldn't open note file");
X    fflush(stdout);
X    Delay(50*2);
X    exit(1);
X    }
X    fprintf(fi, "**NOTE** %s", ctime(&t));
X
X    while (ptr = GetLine()) {
X    if (strcmp(ptr, ".") == 0)
X        break;
X    if (strncmp(ptr, "**NOTE**", 8) == 0)
X        fprintf(fi, " ");
X    fprintf(fi, "%s\n", ptr);
X    }
X    puts("Thank you, hanging up in 8 seconds");
X    fflush(stdout);
X    fclose(fi);
X    Delay(50*8);
X    return(0);
X}
X
X
Xchar *
XGetLine()
X{
X    static char buf[256];
X    static char tab[256];
X    short col = 0;
X    short i = 0;
X    short limit = 5*60;     /*    5 minute idle timeout    */
X    short lcnt = 0;
X    short c;
X
X    for (;;) {
X    c = GetDaChar();
X    if (c == EOF) {
X        clearerr(stdin);
X        ++lcnt;
X        if (lcnt == limit - 30) {
X        puts("\r\n(idle, hangup in 30)\r\n");
X        fflush(stdout);
X        }
X        if (lcnt == limit)
X        break;
X        continue;
X    }
X    lcnt = 0;
X
X    switch(c) {
X    case 10:
X    case 13:
X        PutDaChar('\r');
X        PutDaChar('\n');
X        FlushChars();
X        buf[i] = 0;
X        return(buf);
X    case 8:
X    case 127:
X        if (i) {
X        short n = 1;
X        --i;
X        if (buf[i] == 9)
X            n = tab[i];
X        col -= n;
X        while (n--) {
X            PutDaChar('\010');
X            PutDaChar(' ');
X            PutDaChar('\010');
X        }
X        }
X        break;
X    case 'x'&0x1F:
X        PutDaChar('^');
X        PutDaChar('X');
X        PutDaChar('\r');
X        PutDaChar('\n');
X        i = 0;
X        break;
X    case 'r'&0x1F:
X        PutDaChar('\r');
X        PutDaChar('\n');
X        FlushChars();
X        buf[i] = 0;
X        printf("%s", buf);
X        fflush(stdout);
X        break;
X    case 9:
X        if (i < sizeof(buf) - 2) {
X        tab[i] = 8 - (col & 7);
X        col += tab[i] - 1;  /*    because we ++ below */
X        }
X        /* fall through */
X    default:
X        if (i < sizeof(buf) - 2) {
X        PutDaChar(c);
X        buf[i++] = c;
X        ++col;
X        } else {
X        PutDaChar('g' & 0x1F);
X        }
X        break;
X    }
X    }
X    return(NULL);
X}
X
Xvoid
XFlushChars()
X{
X    PutDaChar(256);
X}
X
Xvoid
XPutDaChar(c)
X{
X    static char buf[256];
X    static short len;
X
X    if (c == 256 || len == sizeof(buf)) {
X    if (len)
X        write(1, buf, len);
X    len = 0;
X    }
X    if (c != 256)
X    buf[len++] = c;
X}
X
X
XGetDaChar()
X{
X    static char buf[256];
X    static short idx, len;
X
X    if (idx == len) {
X    if (read(0, buf, 0) < 0)
X        FlushChars();
X    idx = 0;
X    len = read(0, buf, sizeof(buf));
X    if (len <= 0) {
X        len = 0;
X        return(EOF);
X    }
X    }
X    return((int)buf[idx++]);
X}
X
END_OF_FILE
if test 3473 -ne `wc -c <'uucp2/src/GUtil/gnote.c'`; then
    echo shar: \"'uucp2/src/GUtil/gnote.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/GUtil/gnote.c'
fi
if test -f 'uucp2/src/GUtil/uuserdump.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'uucp2/src/GUtil/uuserdump.c'\"
else
echo shar: Extracting \"'uucp2/src/GUtil/uuserdump.c'\" \(4092 characters\)
sed "s/^X//" >'uucp2/src/GUtil/uuserdump.c' <<'END_OF_FILE'
X
X/*
X *  UUSERDUMP.C
X *
X *  $Header: Beta:src/uucp/src/GUtil/RCS/uuserdump.c,v 1.1 90/02/02 11:58:57 dillon Exp Locker: dillon $
X *
X *  (C) Copyright 1989-1990 by Matthew Dillon,  All Rights Reserved.
X *
X *  UUSERDUMP filename
X *
X *  KEY THINGS ABOUT UUSER: USED AS STDIN/STDOUT
X *
X *    Currently UUSER: works only with single sessions started
X *    by Getty (this has to do with how UUSER: deals with carrier
X *    detect).  THIS WILL BE FIXED.
X *
X *    (1) Use Level 1 I/O if you can (read/write)
X *        read() returns 0 on timeout, -1 on carrier lost
X *        otherwise, read() returns the immediate number of
X *        data bytes ready up to the amount you requested.
X *        (i.e. if you read(0,buf,256) you can get anywhere from
X *        -1, 0, 1 to 256 back).
X *
X *        write() returns the number you wrote or -1 (lost carrier)
X *
X *        To 'poll' data ready you can read(0, NULL, 0) .. reading
X *        0 bytes returns 0 (data ready) or -1 (data not ready).
X *        NOTE: 0 (data ready) will be returned if carrier is lost
X *        when you read 0 bytes... this is so your program thinks
X *        data is ready and when it does a real read it finds that
X *        carrier was lost!
X *
X *    (2) If you want to use Level 2 I/O (stdio) I suggest you use
X *        it for writing only.  If you really want to use it for
X *        reading remember that the timeout will cause an EOF
X *        condition which must be cleared (clrerr()).  And you
X *        must call ferror() to determine whether an EOF is an
X *        EOF (timeout()) or an actual error (lost carrier).
X */
X
X#include <stdio.h>
X#include "protos.h"
X#include "version.h"
X
XIDENT(".01");
X
Xchar buf[256];
Xshort i;
X
Xint
Xbrk()
X{
X    return(0);
X}
X
Xmain(ac, av)
Xchar *av[];
X{
X    short i;
X    char c;
X    short n;
X    FILE *fi = fopen(av[1], "r");
X
X    onbreak(brk);
X    /*
X     *    set output to line buffering (stdio), else it will use
X     *    file buffering!  Which is bad if we want to catch ^S/^C
X     */
X
X    setvbuf(stdout, NULL, _IOLBF, 0);
X
X
X    if (ac == 1)
X    exit(1);
X
X    if (fi == NULL)
X    printf("Info file %s not available\r\n", av[1]);
X
X    printf("Dumping info file (suggest capture), hit Enter when ready\n");
X    fflush(stdout);
X
X    /*
X     *    Getty uses the R1000 option, so there is a one second timeout
X     *    on reads when no data is present.  If data is present, UUSER:
X     *    returns the number of bytes immediately available regardless of
X     *    how many you requested.
X     */
X
X    for (i = 0; i < 60; ++i) {
X    n = read(0, &c, 1);
X    if (n < 0)              /*  lost carrier */
X        exit(1);
X                /*  success    */
X    if (n > 0 && (c == 10 || c == 13))
X        goto skip;
X    /* timeout */
X    }
X    exit(1);
Xskip:
X    while (fgets(buf, 256, fi)) {
X    short len = strlen(buf);
X    if (CheckControl())
X        break;
X    if (len > 0 && buf[len-1] == '\n')
X        --len;
X    buf[len++] = 13;
X    buf[len++] = 10;
X    buf[len++] = 0;
X    fputs(buf, stdout);
X    }
X    fclose(fi);
X
X    printf("End of dump, any key to disconnect\n");
X    fflush(stdout);
X    for (i = 0; i < 60; ++i) {
X    n = read(0, &c, 1);
X    if (n == 0)     /*  1 second timeout    */
X        continue;
X    break;        /*  any key or lost cd    */
X    }
X    return(0);
X}
X
X/*
X *  Here we use a UUSER: trick ... requesting 0 bytes in a read()
X *  incurs NO timeout.    0 is returned if data is ready, -1 if data
X *  is not ready.
X *
X *  Another way to do it is to dump a seconds worth of data, then
X *  call read() (which blocks for up to 1 second if no data is
X *  ready, but the user doesn't see that because we've already queued
X *  a second's worth of data).  The first method is better because
X *  there is finer granularity (that is, the one used below)
X */
X
XCheckControl()
X{
X    char c = 0;
X    short n;
X
X    if (read(0, NULL, 0) == 0) {    /*  returns 0=data ready, -1=not rdy */
X    read(0, &c, 1);
X    if (c == ('s'&0x1F)) {      /*  ^S           */
X        for (;;) {
X        n = read(0, &c, 1);
X        if (n < 0)          /*  lost carrier */
X            exit(1);
X        if (n == 0)         /*  timeout      */
X            continue;
X        break;            /*    got a key    */
X        }
X        return(0);
X    }
X    if (c == ('c'&0x1F))        /*  ^C           */
X        return(1);
X    }
X    return(0);
X}
X
END_OF_FILE
if test 4092 -ne `wc -c <'uucp2/src/GUtil/uuserdump.c'`; then
    echo shar: \"'uucp2/src/GUtil/uuserdump.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/GUtil/uuserdump.c'
fi
if test -f 'uucp2/src/anews/followup.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'uucp2/src/anews/followup.c'\"
else
echo shar: Extracting \"'uucp2/src/anews/followup.c'\" \(4278 characters\)
sed "s/^X//" >'uucp2/src/anews/followup.c' <<'END_OF_FILE'
X
X/*
X *  FOLLOWUP.C
X */
X
X#include "news.h"
X#include <time.h>
X
Xstatic char Buf[256];
X
Xchar *findheader();
X
Xstatic char *TempFileName = "T:anews.post.tmp";
X
X/*
X *  NOTE: fp can be NULL
X */
X
Xvoid
Xfollowup(cmd, fp, group)
Xint cmd;
XFILE *fp;
Xconst char *group;
X{
X    FILE *fo = fopen(TempFileName, "w");
X    char *ptr;
X    char *nodename = FindConfig(NODENAME);
X    char *system_name = FindConfig(NEWSFEED);
X    char *user       = FindConfig(USERNAME);
X    char *domain   = FindConfig(DOMAINNAME);
X    char *realname = FindConfig(REALNAME);
X    int yes = 0;
X    time_t t = time(NULL);
X    int seq = GetSequence(0);
X    static char *envuser;
X    static char *envrealname;
X
X    if (fo == NULL) {
X    printf("can't create %s\n", TempFileName);
X    return;
X    }
X
X    if (nodename == NULL || system_name == NULL || user == NULL || realname == NULL) {
X    printf("Incomplete Configuration, one of:\n");
X    printf("\t%s %s %s %s\n", NODENAME, NEWSFEED, USERNAME, REALNAME);
X    fclose(fo);
X    return;
X    }
X    if (domain == NULL)
X    domain = ".UUCP";
X
X    /*
X     *    Enviroment variable overides
X     */
X
X    if (envuser == NULL)
X    envuser = MallocEnviro("USER");
X    if (envrealname == NULL)
X    envrealname = MallocEnviro("REALNAME");
X    if (envuser)
X    user = envuser;
X    if (envrealname)
X    realname = envrealname;
X
X    /*
X     *    Create news file
X     */
X
X    fprintf(fo, "Path: %s!%s\n", nodename, user);
X    fprintf(fo, "From: %s@%s%s (%s)\n", user, nodename, domain, realname);
X    fprintf(fo, "Newsgroups: %s\n", group);
X
X    fprintf(fo, "Subject: ");
X    if (fp)
X    fprintf(fo, "Re: ");
X    if (ptr = findheader(fp, "Subject:")) {
X    if (strncmpi(ptr, "re:", 3) == 0)
X        ptr += 3;
X    while (*ptr == ' ' || *ptr == 9)
X        ++ptr;
X    fprintf(fo, "%s", ptr);
X    free(ptr);
X    }
X    fputs("\n", fo);
X
X    fprintf(fo, "Message-Id: <%04d.AA%04d@%s%s>\n", seq, seq, nodename, domain);
X    fprintf(fo, "Date: %s", ctime(&t));
X    fprintf(fo, "Followup-To: %s\n", group);
X    fprintf(fo, "Expires: \n");
X    fprintf(fo, "Keywords: \n");
X
X    fprintf(fo, "Distribution: ");
X    if (ptr = findheader(fp, "Distribution:")) {
X    fprintf(fo, "%s", ptr);
X    free(ptr);
X    } else {
X    fputs("world", fo);
X    }
X    fputs("\n", fo);
X
X    /*
X     *    upper case, include text
X     */
X
X    fputs("\n", fo);
X
X    if (fp && cmd >= 'A' && cmd <= 'Z') {
X    rewind(fp);
X    while (fgets(Buf, sizeof(Buf), fp) && Buf[0] != '\n');
X    while (fgets(Buf, sizeof(Buf), fp)) {
X        fprintf(fo, ">");
X        fputs(Buf, fo);
X    }
X    }
X    fputs("\n", fo);
X
X    /*
X     *    append signature
X     */
X
X    {
X    FILE *fi;
X
X    sprintf(Buf, "%s.signature", user);
X    fi = openlib(Buf);
X    if (fi == NULL)
X        fi = openlib(".signature");
X
X    if (fi) {
X        fputs("--\n", fo);
X        while (fgets(Buf, sizeof(Buf), fi))
X        fputs(Buf, fo);
X        fclose(fi);
X    } else {
X        puts("Warning, no .signature file!");
X    }
X    }
X
X    fclose(fo);
X
X    /*
X     *    Edit the file
X     */
X
X    sprintf(Buf, "%s %s", GetConfig(NEWSEDITOR, GetConfig(EDITOR, "dme")), TempFileName);
X    system(Buf);
X
X    /*
X     *    want to post this?
X     */
X
X    cooked(stdin);
X    printf("Do you want to post this? 'y' or 'n' :");
X    fflush(stdout);
X    while (fgets(Buf, sizeof(Buf), stdin)) {
X    if (strcmp(Buf, "y\n") == 0 || strcmp(Buf, "yes\n") == 0) {
X        yes = 1;
X        break;
X    }
X    if (strcmp(Buf, "n\n") == 0 || strcmp(Buf, "no\n") == 0) {
X        break;
X    }
X    printf("'y' or 'n' please: ");
X    fflush(stdout);
X    }
X    raw(stdin);
X    if (yes) {
X    sprintf(Buf, "%s %s \"%s!rnews\"", GetConfigProgram(UUX), TempFileName, system_name);
X    system(Buf);
X    }
X    remove(TempFileName);
X}
X
X/*
X *  Finds the requested header in the file.  Deletes extra space at the end
X *  and resulting string does not have a newline.
X */
X
Xchar *
Xfindheader(fp, hdr)
XFILE *fp;
Xchar *hdr;
X{
X    int len = strlen(hdr);
X
X    if (fp == NULL)
X    return(NULL);
X
X    rewind(fp);
X
X    while (fgets(Buf, 256, fp) && Buf[0] != '\n') {
X    if (strncmp(Buf, hdr, len) == 0) {
X        char *ptr = Buf;
X        char *ret = malloc(strlen(ptr + len) + 1);
X
X        while (ptr[len] == ' ' || ptr[len] == 9 || ptr[len] == '\n')
X        ++len;
X        strcpy(ret, ptr + len);
X        for (len = strlen(ret) - 1; len >= 0; --len) {
X        if (ret[len] != ' ' && ret[len] != 9 && ret[len] != '\n')
X            break;
X        }
X        ++len;
X        ret[len] = 0;
X        return(ret);
X    }
X    }
X    return(NULL);
X}
X
END_OF_FILE
if test 4278 -ne `wc -c <'uucp2/src/anews/followup.c'`; then
    echo shar: \"'uucp2/src/anews/followup.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/anews/followup.c'
fi
if test -f 'uucp2/src/anews/reply.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'uucp2/src/anews/reply.c'\"
else
echo shar: Extracting \"'uucp2/src/anews/reply.c'\" \(3184 characters\)
sed "s/^X//" >'uucp2/src/anews/reply.c' <<'END_OF_FILE'
X
X/*
X *  REPLY.C
X *
X *  Reply to sender of article (creates, edits a file, then pipes it through
X *  sendmail)
X */
X
X#include "news.h"
X#include <time.h>
X
Xstatic char Buf[256];
X
Xchar *findheader();
Xchar *findheaderNoNull();
X
Xstatic char *TempFileName = "T:anews.post.tmp";
X
X/*
X *  NOTE: fp can be NULL
X */
X
Xvoid
Xreply(cmd, fp, group)
Xint cmd;
XFILE *fp;
Xconst char *group;
X{
X    FILE *fo = fopen(TempFileName, "w");
X    char *ptr;
X    char *user       = FindConfig(USERNAME);
X    char *realname = FindConfig(REALNAME);
X    int yes = 0;
X    time_t t = time(NULL);
X    int seq = GetSequence(0);
X    static char *envuser;
X    static char *envrealname;
X
X    if (fo == NULL) {
X    printf("can't create %s\n", TempFileName);
X    return;
X    }
X
X    if (user == NULL || realname == NULL) {
X    printf("Incomplete Configuration, one of:\n");
X    printf("\t%s %s\n", USERNAME, REALNAME);
X    fclose(fo);
X    remove(TempFileName);
X    return;
X    }
X
X    /*
X     *    Enviroment variable overides
X     */
X
X    if (envuser == NULL)
X    envuser = MallocEnviro("USER");
X    if (envrealname == NULL)
X    envrealname = MallocEnviro("REALNAME");
X    if (envuser)
X    user = envuser;
X    if (envrealname)
X    realname = envrealname;
X
X    /*
X     *    Create email template that can be sent through sendmail, handle
X     *    signature and optional included text.
X     */
X
X    {
X    char *to;
X
X    if ((to = findheader(fp, "Reply-To:")) == NULL)
X        to = findheader(fp, "From:");
X    if (to) {
X        fprintf(fo, "To: %s\n", to);
X        free(to);
X    } else {
X        fprintf(fo, "To: \n");
X    }
X    }
X    fprintf(fo, "Cc: \n");
X    fprintf(fo, "Subject: ");
X
X    if (fp)
X    fprintf(fo, "Re: ");
X    if (ptr = findheader(fp, "Subject:")) {
X    char *xp = ptr;
X    if (strnicmp(xp, "re:", 3) == 0)
X        xp += 3;
X    while (*xp == ' ' || *xp == 9)
X        ++xp;
X    fprintf(fo, "%s", xp);
X    free(ptr);
X    }
X    fputs("\n", fo);
X
X    fputs("\n", fo);
X
X    if (fp && cmd >= 'A' && cmd <= 'Z') {
X    rewind(fp);
X    while (fgets(Buf, sizeof(Buf), fp) && Buf[0] != '\n');
X    while (fgets(Buf, sizeof(Buf), fp)) {
X        fprintf(fo, ">");
X        fputs(Buf, fo);
X    }
X    }
X    fputs("\n", fo);
X
X    /*
X     *    append signature
X     */
X
X    {
X    FILE *fi;
X
X    sprintf(Buf, "%s.signature", user);
X    fi = openlib(Buf);
X    if (fi == NULL)
X        fi = openlib(".signature");
X    if (fi) {
X        fputs("--\n", fo);
X        while (fgets(Buf, sizeof(Buf), fi))
X        fputs(Buf, fo);
X        fclose(fi);
X    } else {
X        puts("Warning, no .signature file!");
X    }
X    }
X
X    fclose(fo);
X
X    /*
X     *    Edit the file
X     */
X
X    sprintf(Buf, "%s %s", GetConfig(NEWSEDITOR, GetConfig(EDITOR, "dme")), TempFileName);
X    system(Buf);
X
X    /*
X     *    want to post this?
X     */
X
X    cooked(stdin);
X    printf("Do you want to send this? 'y' or 'n' :");
X    fflush(stdout);
X    while (fgets(Buf, sizeof(Buf), stdin)) {
X    if (strcmp(Buf, "y\n") == 0 || strcmp(Buf, "yes\n") == 0) {
X        yes = 1;
X        break;
X    }
X    if (strcmp(Buf, "n\n") == 0 || strcmp(Buf, "no\n") == 0) {
X        break;
X    }
X    printf("'y' or 'n' please: ");
X    fflush(stdout);
X    }
X
X    raw(stdin);
X    if (yes) {
X    sprintf(Buf, "%s < %s -f %s", GetConfigProgram(SENDMAIL), TempFileName, user);
X    system(Buf);
X    remove(TempFileName);
X    } else {
X    printf("File left as %s\n", TempFileName);
X    }
X}
X
END_OF_FILE
if test 3184 -ne `wc -c <'uucp2/src/anews/reply.c'`; then
    echo shar: \"'uucp2/src/anews/reply.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/anews/reply.c'
fi
if test -f 'uucp2/src/dmail/do_lists.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'uucp2/src/dmail/do_lists.c'\"
else
echo shar: Extracting \"'uucp2/src/dmail/do_lists.c'\" \(4162 characters\)
sed "s/^X//" >'uucp2/src/dmail/do_lists.c' <<'END_OF_FILE'
X
X/*
X *  DO_LISTS.C
X *
X *  $Header: Beta:src/uucp/src/dmail/RCS/do_lists.c,v 1.1 90/02/02 12:03:33 dillon Exp Locker: dillon $
X *
X *  (C) Copyright 1985-1990 by Matthew Dillon,  All Rights Reserved.
X *
X *  Global Routines:    DO_SETLIST()
X *            DO_LIST()
X *            DO_SELECT()
X *            DO_DEFER()
X *
X *  Static Routines:    None.
X *
X *    LIST associated commands.
X *
X */
X
X#include <stdio.h>
X#include "dmail.h"
X
X
Xdo_setlist(str)
Xchar *str;
X{
X    int i, fw, idx, localecho = 1;
X    int sac = 1;
X
X    push_break();
X    if (ac > sac && strcmp (av[sac], "-s") == 0) {
X    ++sac;
X    localecho = 0;
X    }
X    hold_load();
X    if (ac > sac) {
X    Listsize = 0;
X    for (i = sac; i < ac; ++i) {
X        fw = atoi(av[i]);
X        if (fw > 4096)
X        fw = 4096;
X        if (fw < 0  ||  (*av[i] < '0'  ||  *av[i] > '9'))
X        fw = 20;
X        else
X        ++i;
X        if (i >= ac)
X        continue;
X        idx = get_extra_ovr (av[i]);
X        if (idx < 0) {
X        printf ("To many entries, cannot load: %s\n", av[i]);
X        fflush (stdout);
X        continue;
X        }
X        header[Listsize] = idx;
X        width[Listsize] = fw;
X        ++Listsize;
X    }
X    }
X    nohold_load();
X    pop_break();
X    if (localecho) {
X    puts ("");
X    printf ("Entry   Width   Field\n\n");
X    for (i = 0; i < Listsize; ++i)
X        printf ("%-6d   %-5d   %s\n", i, width[i], Find[header[i]].search);
X    puts ("");
X    }
X    return (1);
X}
X
X
X/*
X * Pre-position #   0 >     Current article
X *            1 -     Read already
X */
X
Xdo_rlist()
X{
X    int num = 20;
X    int istart = Current, iend = Current;
X    short dir = 1;
X    short try;
X    char buf[64];
X
X    if (av[1])
X    num = atoi(av[1]);
X    if (num < 0) {
X    dir = -1;
X    num = -num;
X    }
X    for (try = 0; try < 2 && num; ++try, (dir = -dir)) {
X    int i;
X    if (dir < 0) {
X        for (i = Current; i >= 0 && num; --i) {
X        if (Entry[i].no && !(Entry[i].status & ST_DELETED)) {
X            istart = i;
X            --num;
X        }
X        }
X    } else {
X        for (i = Current; i < Entries && num; ++i) {
X        if (Entry[i].no && !(Entry[i].status & ST_DELETED)) {
X            iend = i;
X            --num;
X        }
X        }
X    }
X    }
X    if (istart != iend) {
X    sprintf(buf, "%d-%d", Entry[istart].no, Entry[iend].no);
X    ac = 2;
X    av[1] = buf;
X    return(do_list());
X    } else {
X    return(-1);
X    }
X}
X
Xdo_list()
X{
X    int i, j;
X    static char curr[10] = { "    " };
X
X    if (ac == 1) {
X    av[1] = "all";
X    ++ac;
X    }
X    if (push_base()) {
X    push_break();
X    pop_base();
X    PAGER (-1);
X    pop_break();
X    return (-1);
X    }
X    PAGER (0);
X    FPAGER ("\n         ");
X    for (j = 0; j < Listsize; ++j) {
X    if (width[j]) {
X        sprintf (Puf, "%-*.*s",
X            2 + width[j],
X            2 + width[j],
X            Find[header[j]].search);
X        FPAGER (Puf);
X    }
X    }
X    FPAGER ("\n");
X    rewind_range (1);
X    while (i = get_range()) {
X    i = indexof(i);
X    if (Entry[i].no  &&  ((Entry[i].status & ST_DELETED) == 0)) {
X        curr[0] = (Entry[i].status & ST_TAG) ? 'T' : ' ';
X        curr[1] = (i == Current) ? '>' : ' ';
X        curr[2] = (Entry[i].status & ST_READ)    ? 'r' : ' ';
X        curr[3] = (Entry[i].status & ST_STORED)  ? 'w' : ' ';
X        sprintf (Puf, "%s%-3d", curr, Entry[i].no);
X        FPAGER (Puf);
X        for (j = 0; j < Listsize; ++j) {
X        if (width[j]) {
X            sprintf(Puf, "  %-*.*s",
X                width[j],
X                width[j],
X                Entry[i].fields[header[j]]);
X            FPAGER (Puf);
X        }
X        }
X        FPAGER ("\n");
X    }
X    }
X    FPAGER ("\n");
X    PAGER (-1);
X    pop_base();
X    return (1);
X}
X
X
X
Xdo_select(str, mode)
Xchar *str;
X{
X    int ret = 1;
X    int localecho = 1;
X    int avi = 1;
X    int scr;
X
X    if (ac == 1)
X    return (1);
X
X    SelAll = 0;
X
X    if (strcmp (av[avi], "-s") == 0) {
X    localecho = 0;
X    ++avi;
X    --ac;
X    }
X    switch (ac) {
X    case 2:
X    SelAll = 1;
X    if (localecho)
X        puts ("SELECT ALL");
X    ret = m_select (Nulav, mode);
X    break;
X    case 1:
X    break;
X    default:
X    ret = m_select (av + avi, mode);
X    scr = indexof(0);
X    if (scr > 0  &&  localecho)
X        printf ("%d  Entries selected\n", Entry[scr].no);
X    break;
X    }
X    if (ret < 0  &&  localecho) {
X    puts ("Null field");
X    return (-1);
X    }
X    return (1);
X}
X
X
Xdo_defer()
X{
X    register int i, j;
X
X    push_break();
X    j = 1;
X    for (i = 0; i < Entries; ++i) {
X    if (Entry[i].no)
X        Entry[i].no = (Entry[i].status & ST_READ) ? 0 : j++;
X    }
X    pop_break();
X    return (1);
X}
X
END_OF_FILE
if test 4162 -ne `wc -c <'uucp2/src/dmail/do_lists.c'`; then
    echo shar: \"'uucp2/src/dmail/do_lists.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/dmail/do_lists.c'
fi
if test -f 'uucp2/src/dmail/range.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'uucp2/src/dmail/range.c'\"
else
echo shar: Extracting \"'uucp2/src/dmail/range.c'\" \(3191 characters\)
sed "s/^X//" >'uucp2/src/dmail/range.c' <<'END_OF_FILE'
X
X/*
X * RANGE.C
X *
X *  $Header: Beta:src/uucp/src/dmail/RCS/range.c,v 1.1 90/02/02 12:03:54 dillon Exp Locker: dillon $
X *
X *  (C) Copyright 1985-1990 by Matthew Dillon,  All Rights Reserved.
X *
X *  Global Routines:    REWIND_RANGE()
X *            GET_RANGE()
X *            SINGLE_POSITION()
X *
X *  Static Routines:    None.
X *
X *
X */
X
X#include <stdio.h>
X#include "dmail.h"
X
X
Xstatic int range_ac;
Xstatic int in, start, end;
X
Xstruct RANOP {
X    char *name;
X    int status, kstatus;
X};
X
Xstatic struct RANOP Ranop[] = {
X    "all",  0,              0,
X    "tag",  ST_TAG,         ST_DELETED,
X    "wri",  ST_STORED,      ST_DELETED,
X    "del",  ST_DELETED,     0,
X    "mar",  ST_READ,        ST_DELETED,
X    "unt",  0,              ST_DELETED | ST_TAG,
X    "unw",  0,              ST_DELETED | ST_STORED,
X    "und",  0,              ST_DELETED,
X    "unm",  0,              ST_DELETED | ST_READ,
X    NULL ,  0,            0 };
X
Xvoid
Xrewind_range(beg)
X{
X    Silence = 0;
X    range_ac = beg;
X
X    if (range_ac >= ac) {
X    start = (Current >= 0) ? Entry[Current].no : 0;
X    end   = start;
X    in    = 1;
X    } else {
X    in    = 0;
X    }
X}
X
X
Xget_range()
X{
X    register char *ptr;
X    register int i;
X    static int status;        /* Status items required            */
X    static int kstatus;     /* Status items which cannot be present */
X
Xagain:
X    if (in  &&  start <= end) {
X    i = indexof(start++);
X    if (i < 0  || (Entry[i].status & status) != status ||
X        (Entry[i].status & kstatus))
X        goto again;
X    return (start - 1);
X    }
X    in = status = kstatus = 0;
X    if (range_ac >= ac)
X    return (0);
X    ptr = av[range_ac++];
X    if (*ptr == '-') {
X    if (xstrncmp (ptr, "-s", 2) == 0) {
X        Silence = 1;
X        goto again;
X    }
X    start = 1;
X    ++ptr;
X    goto dash;
X    }
X    if (*ptr < '0'  ||  *ptr > '9') {
X    start = 1;
X    end = 0;
X    for (i = 0; Ranop[i].name; ++i) {
X        if (xstrncmp (ptr, Ranop[i].name, 3) == 0) {
X        status = Ranop[i].status;
X        kstatus = Ranop[i].kstatus;
X        goto imprange;
X        }
X    }
X    goto again;
X    }
X    start = atoi(ptr);
X    while (*(++ptr)) {
X    if (*ptr == '-') {
X        ++ptr;
X        goto dash;
X    }
X    }
X    if (range_ac >= ac)
X    return (start);
X    if (*av[range_ac] == '-') {
X    ptr = av[range_ac++] + 1;
X    goto dash;
X    }
X    return (start);
Xdash:
X    if (*ptr) {
X    end = atoi(ptr);
X    goto imprange;
X    }
X    if (range_ac >= ac) {
X    end = 0;
X    goto imprange;
X    }
X    end = atoi(av[range_ac++]);
Ximprange:
X    if (end == 0) {
X    end = indexof (0);
X    if (end < 0)
X        return (0);
X    end = Entry[end].no;
X    }
X    if (start > end) {
X    printf ("Bad Range: %s\n", av[range_ac - 1]);
X    return (0);
X    }
X    in = 1;
X    goto again;
X}
X
X
Xsingle_position()
X{
X    int old = Current;
X
X    switch (ac) {
X    case 1:
X    break;
X    case 2:
X    if (*av[1] == '\0' || (*av[1] == ' ' && strlen(av[1]) == 1))
X        break;
X    Current = indexof (atoi(av[1]));
X    if (Current < 0) {
X        Current = old;
X        puts ("Out of Range, 0 will take you to the last entry");
X        return (-1);
X    }
X    break;
X    default:
X    puts ("Range not implemented (yet?)");
X    return (-1);
X    }
X    while (Current < Entries  &&  Entry[Current].no == 0)
X    ++Current;
X    if (Current >= Entries) {
X    Current = old;
X    puts ("No More Messages");
X    return (-1);
X    }
X    position_current();
X    return (1);
X}
X
X
END_OF_FILE
if test 3191 -ne `wc -c <'uucp2/src/dmail/range.c'`; then
    echo shar: \"'uucp2/src/dmail/range.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/dmail/range.c'
fi
if test -f 'uucp2/src/lib/config.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'uucp2/src/lib/config.c'\"
else
echo shar: Extracting \"'uucp2/src/lib/config.c'\" \(3478 characters\)
sed "s/^X//" >'uucp2/src/lib/config.c' <<'END_OF_FILE'
X
X/*
X *  CONFIG.C
X *
X *  $Header: Beta:src/uucp/src/lib/RCS/config.c,v 1.1 90/02/02 12:08:37 dillon Exp Locker: dillon $
X *
X *  (C) Copyright 1989-1990 by Matthew Dillon,  All Rights Reserved.
X *
X *  Extract fields from UULIB:Config
X */
X
X#include <stdio.h>
X#include <stdlib.h>
X#include <fcntl.h>
X#include "config.h"
X
XPrototype char *FindConfig(const char *);
XPrototype char *GetConfig(const char *, char *);
XPrototype char *GetConfigDir(char *);
XPrototype char *GetConfigProgram(char *);
XPrototype char *MakeConfigPath(const char *, const char *);
XPrototype char *MallocEnviro(const char *);
XPrototype FILE *openlib(const char *);
XPrototype FILE *openlib_write(const char *);
X
X#define CTLZ    ('z'&0x1F)
X
Xstatic char *ConfBuf = NULL;
X
Xchar *
XFindConfig(field)
Xconst char *field;
X{
X    char *str;
X    short flen = strlen(field);
X
X    if (ConfBuf == NULL) {
X    FILE *fi;
X    fi = fopen("S:UUConfig", "r");
X    if (fi == NULL)
X        fi = fopen("UULIB:Config", "r");
X    if (fi) {
X        long buflen;
X        fseek(fi, 0L, 2);
X        buflen = ftell(fi);
X        fseek(fi, 0L, 0);
X        if (buflen > 0 && (ConfBuf = malloc(buflen + 1))) {
X        fread(ConfBuf, buflen, 1, fi);
X        ConfBuf[buflen] = CTLZ;     /*    can't use \0 */
X        for (str = ConfBuf; *str; ++str) {
X            char *bup;
X            if (*str == '\n') {     /*  make separate strs */
X            *str = 0;
X                        /*    remove white space at end */
X            for (bup = str - 1; bup >= ConfBuf && (*bup == ' ' || *bup == 9); --bup)
X                *bup = 0;
X            }
X        }
X        } else {
X        ConfBuf = NULL;
X        }
X    } else {
X        fprintf(stderr, "Couldn't open S:UUConfig or UULIB:Config\n");
X    }
X    }
X    if (ConfBuf == NULL)
X    return(NULL);
X    /*
X     *    Search ConfBuf for Field<space/tab>
X     */
X
X    for (str = ConfBuf; *str != CTLZ; str += strlen(str) + 1) {
X    if (*str == 0 || *str == '#')
X        continue;
X    if (strncmp(str, field, flen) == 0 && (str[flen] == ' ' || str[flen] == '\t')) {
X        str += flen;
X        while (*str == ' ' || *str == 9)
X        ++str;
X        return(str);
X    }
X    }
X    return(NULL);
X}
X
Xchar *
XGetConfig(field, def)
Xconst char *field;
Xchar *def;
X{
X    char *result = FindConfig(field);
X
X    if (result == NULL)
X    result = def;
X    return(result);
X}
X
Xchar *
XGetConfigDir(field)
Xchar *field;
X{
X    char *result = FindConfig(field);
X
X    if (result == NULL)
X    result = field + strlen(field) + 1;
X    return(result);
X}
X
Xchar *
XGetConfigProgram(field)
Xchar *field;
X{
X    char *result = FindConfig(field);
X    if (result == NULL)
X    result = field;
X    return(result);
X}
X
Xchar *
XMakeConfigPath(field, trailer)
Xconst char *field;
Xconst char *trailer;
X{
X    static char Buf[512];
X    char *result = GetConfigDir(field);
X    short len = strlen(result) - 1;
X
X    if (len > 0 && result[len] == '/' || result[len] == ':')
X    sprintf(Buf, "%s%s", result, trailer);
X    else
X    sprintf(Buf, "%s/%s", result, trailer);
X    return(Buf);
X}
X
Xchar *
XMallocEnviro(envname)
Xconst char *envname;
X{
X    int fd;
X    int len;
X    char *tmp = malloc(strlen(envname) + 32);
X
X    sprintf(tmp, "ENV:%s", envname);
X    fd = open(tmp, O_RDONLY);
X    free(tmp);
X
X    if (fd < 0)
X    return(NULL);
X    len = lseek(fd, 0L, 2);
X    lseek(fd, 0L, 0);
X    if (len >= 0) {
X    tmp = malloc(len + 1);
X    read(fd, tmp, len);
X    tmp[len] = 0;
X    } else {
X    tmp = NULL;
X    }
X    close(fd);
X    return(tmp);
X}
X
XFILE *
Xopenlib(filename)
Xconst char *filename;
X{
X    return (fopen(MakeConfigPath(UULIB, filename), "r"));
X}
X
XFILE *
Xopenlib_write(filename)
Xconst char *filename;
X{
X    return (fopen(MakeConfigPath(UULIB, filename), "w"));
X}
X
END_OF_FILE
if test 3478 -ne `wc -c <'uucp2/src/lib/config.c'`; then
    echo shar: \"'uucp2/src/lib/config.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/lib/config.c'
fi
if test -f 'uucp2/src/lib/list_sort.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'uucp2/src/lib/list_sort.c'\"
else
echo shar: Extracting \"'uucp2/src/lib/list_sort.c'\" \(3949 characters\)
sed "s/^X//" >'uucp2/src/lib/list_sort.c' <<'END_OF_FILE'
X
X/*
X *  LIST_SORT.C
X *
X *    list_sort(list, compare_routine) -> sorted_list
X *
X *    Assumes a list of structures, with a pointer to "next" as the first
X *    field.    It reorders the list into ascending order, and returns the
X *    new first node's address.  It is order N log(N).
X *
X *    The compare routine should return positive if the items are in order,
X *    and non-positive if they are not.  If the compare routine returns zero
X *    in case of equality, the sort will be stable.
X */
X
X/*    This routine depends upon compiler-dependant struct layout, but this
X *    assumption is likely to be fairly commonly valid.
X */
X
X#define _LIST_SORT_C
X
X#include <stdio.h>
X#include "version.h"
X
XIDENT(".01");
X
Xtypedef struct node_struct {
X    struct node_struct *next;
X} node_type;
X
Xtypedef int (*cf_type)(node_type *, node_type *);
X
XLocal node_type *list_sort(node_type *, cf_type);
X
Xnode_type *
Xlist_sort(node_type *list, cf_type cmp)
X{
X    struct node_struct *new[2]; /* back of new stuff */
X    struct node_struct *old[2]; /* front of old stuff */
X    int n;            /* current new list */
X    int o;            /* current old list */
X    long m, hm;         /* m is merge length, hm is half of that */
X    long count[2];        /* counts entries drawn from "old" lists */
X    node_type front[2];     /* artificial front-of-list */
X
X    /*
X     *    The basic notion of this sort is to make sorted sublists longer and
X     *    longer by merging.  On the Nth pass through the list, sorted
X     *    sublists of length 2^(N-1) are produced.  Eventually, the entire
X     *    list is sorted, in log2(N)+1 passes through the list.  There is
X     *    extra bookkeeping overhead, but minimal extra storage space needed.
X     *    Counts and clever pointer management substitute for extra "glue"
X     *    nodes.
X     *
X     *    while more than one list
X     *        while not at end of composite lists
X     *            for each merge_length(m) block
X     *                merge lists onto current output list
X     *            toggle current output list
X     */
X
X    front[0].next = 0;
X    front[1].next = list;
X
X    for (hm = 0, m = 1; front[1].next != 0; hm = m, m <<= 1) {
X    /* log2(N)+1 times through (since m doubles every time) */
X
X    new[0] = &front[0];    old[0] = front[0].next;
X    new[1] = &front[1];    old[1] = front[1].next;
X    n = 0;
X    count[0] = count[1] = 0;
X
X    for (;;) {
X        /*
X         * N times through (each time through consumes
X         * one item from one or the other of the old lists)
X         */
X
X        if (old[0] == 0) {
X        /*
X         * First composite input list exhausted...
X         * copy second list onto output, quitting
X         * if second list is at end.
X         */
X
X        new[n] = new[n]->next = old[1];
X        if ((old[1] = old[1]->next) == 0)
X            break;
X        if (++count[1] >= hm)
X            n = 1 - n, count[0] = count[1] = 0;
X        } else if (old[1] == 0) {
X        /*
X         * Second composite input list exhausted...
X         * copy first list onto output, quitting
X         * if first list is at end.
X         */
X
X        new[n] = new[n]->next = old[0];
X        if ((old[0] = old[0]->next) == 0)
X            break;
X        if (++count[0] >= hm)
X            n = 1 - n, count[0] = count[1] = 0;
X        } else if (count[0] >= hm) {
X        /*
X         * First logical input list exhausted...
X         * copy second list onto output, swapping
X         * output list if second input list ends.
X         */
X
X        new[n] = new[n]->next = old[1];
X        old[1] = old[1]->next;
X        if (++count[1] >= hm)
X            n = 1 - n, count[0] = count[1] = 0;
X        } else if (count[1] >= hm) {
X        /*
X         * Second logical input list exhausted...
X         * copy first list onto output, swapping
X         * output list if first input list ends.
X         */
X
X        new[n] = new[n]->next = old[0];
X        old[0] = old[0]->next;
X        if (++count[0] >= hm)
X            n = 1 - n, count[0] = count[1] = 0;
X        } else {
X        /*
X         * Compare the two items at the heads of
X         * the input lists, and put the smaller
X         * on the current output list.
X         */
X
X        o = (*cmp)(old[0], old[1]) > 0;
X        new[n] = new[n]->next = old[o];
X        old[o] = old[o]->next;
X        ++count[o];
X        }
X    }
X    new[0]->next = new[1]->next = 0;
X    }
X    return front[0].next;
X}
X
END_OF_FILE
if test 3949 -ne `wc -c <'uucp2/src/lib/list_sort.c'`; then
    echo shar: \"'uucp2/src/lib/list_sort.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/lib/list_sort.c'
fi
if test -f 'uucp2/src/news/postnews.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'uucp2/src/news/postnews.c'\"
else
echo shar: Extracting \"'uucp2/src/news/postnews.c'\" \(3427 characters\)
sed "s/^X//" >'uucp2/src/news/postnews.c' <<'END_OF_FILE'
X
X/*
X *  POSTNEWS.C
X *
X *  POSTNEWS <newsfile -f user -r "realname" -R reffile    (BATCH news poster)
X *                         -x file       (delete file when done)
X *
X *  If not specified, obtains user/realname from USERNAME and REALNAME
X *  enviroment variables.  If either does not exist then gets it from
X *  the UserName and RealName config entries.
X *
X *  If -R is specified the reffile is included in the header list (usually
X *  contains References: generated by DNews)
X */
X
X#include <stdio.h>
X#include <stdlib.h>
X#include <time.h>
X#include "config.h"
X#include "version.h"
X
XIDENT(".03");
X
Xchar TmpBuf[2048];
Xchar *DelFile[32];
Xshort Di;
X
Xvoid PostNews();
X
Xmain(ac, av)
Xchar *av[];
X{
X    short i;
X    char *from = NULL;
X    char *real = NULL;
X    char *reffile = NULL;
X    FILE *rfi;
X
X    for (i = 1; i < ac; ++i) {
X    char *ptr = av[i];
X    if (*ptr == '-') {
X
X        ptr += 2;
X
X        switch(ptr[-1]) {
X        case 'f':
X        if (*ptr == 0)
X            ptr = av[++i];
X        from = ptr;
X        break;
X        case 'r':
X        if (*ptr == 0)
X            ptr = av[++i];
X        real = ptr;
X        break;
X        case 'R':
X        if (*ptr == 0)
X            ptr = av[++i];
X        reffile = ptr;
X        break;
X        case 'x':
X        if (*ptr == 0)
X            ptr = av[++i];
X        DelFile[Di++] = ptr;
X        break;
X        default:
X        printf("Unknown option: %s\n", ptr - 2);
X        exit(1);
X        }
X    } else {
X        printf("Illegal argument: %s\n", ptr);
X        exit(1);
X    }
X    }
X    if (i > ac) {
X    puts("Expected argument to option");
X    exit(1);
X    }
X    if (from == NULL)
X    from = GetUserName();
X    if (real == NULL)
X    real = GetRealName();
X
X    if (reffile)
X    rfi = fopen(reffile, "r");
X    else
X    rfi = NULL;
X
X    LockFile("PostNews-UPDATE");
X    PostNews(stdin, rfi, from, real);
X    UnLockFile("PostNews-UPDATE");
X
X    if (rfi)
X    fclose(rfi);
X
X    while (--Di >= 0)
X    remove(DelFile[Di]);
X
X    return(0);
X}
X
Xvoid
XPostNews(fi, rfi, user, realname)
XFILE *fi;
XFILE *rfi;
Xchar *user;
Xchar *realname;
X{
X    char *nodename = FindConfig(NODENAME);
X    char *system_name = FindConfig(NEWSFEED);
X    char *domain   = FindConfig(DOMAINNAME);
X    int seq = GetSequence(0);
X    char tfname[32];
X    time_t t = time(NULL);
X    FILE *fo;
X
X    sprintf(tfname, "T:post-%d", seq);
X
X    if (nodename == NULL || system_name == NULL || user == NULL || realname == NULL) {
X    puts("Incomplete configuration!  can't post news");
X    return;
X    }
X    if (domain == NULL)
X    domain = ".UUCP";
X
X    fo = fopen(tfname, "w");
X    if (fo == NULL) {
X    printf("Unable to create %s\n", tfname);
X    return;
X    }
X
X    /*
X     *    Create the actual news file to fo, copying appropriate sections of infile.
X     */
X
X    fprintf(fo, "Path: %s!%s\n", nodename, user);
X    fprintf(fo, "From: %s@%s%s (%s)\n", user, nodename, domain, realname);
X    fprintf(fo, "Message-ID: <%s.%04d@%s%s>\n", user, seq, nodename, domain);
X
X    /*
X     *    user headers
X     */
X
X    while (fgets(TmpBuf, sizeof(TmpBuf), fi) && TmpBuf[0] != '\n')
X    fputs(TmpBuf, fo);
X
X    /*
X     *    system headers (news program -R option to postnews)
X     *    (usually References:)
X     */
X
X    if (rfi) {
X    while (fgets(TmpBuf, sizeof(TmpBuf), rfi))
X        fputs(TmpBuf, fo);
X    }
X
X    /*
X     *    more headers
X     */
X
X    fprintf(fo, "Date: %s", ctime(&t));
X
X    /*
X     *    remainder of message
X     */
X
X    fprintf(fo, "\n");
X
X    while (fgets(TmpBuf, sizeof(TmpBuf), fi))
X    fputs(TmpBuf, fo);
X
X    fclose(fo);
X
X    sprintf(TmpBuf, "%s %s \"%s!rnews\"", GetConfigProgram(UUX), tfname, system_name);
X    system(TmpBuf);
X    remove(tfname);
X}
X
END_OF_FILE
if test 3427 -ne `wc -c <'uucp2/src/news/postnews.c'`; then
    echo shar: \"'uucp2/src/news/postnews.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/news/postnews.c'
fi
if test -f 'uucp2/src/unix/tarsplit.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'uucp2/src/unix/tarsplit.c'\"
else
echo shar: Extracting \"'uucp2/src/unix/tarsplit.c'\" \(4031 characters\)
sed "s/^X//" >'uucp2/src/unix/tarsplit.c' <<'END_OF_FILE'
X
X/*
X *  TARSPLIT.C
X *
X *  $Header: Beta:src/uucp/src/compress/RCS/tarsplit.c,v 1.1 90/02/02 11:48:06 dillon Exp Locker: dillon $
X *
X * TarSplit -- split up tar files (creating directories as needed)
X *
X * usage: TarSplit [pathname]
X *
X * semantics: splits up tar file taken from stdin (or pathname, if
X * specified) and creates the files therein under the working data
X * directory.
X *
X * AmigaDOS Version - no support for stdin.
X */
X
X#include <stdio.h>
X#include "version.h"
X
XIDENT(".00");
X
X#ifdef    AMIGA
X#include <stdlib.h>
X#include <exec/types.h>
X#ifdef LATTICE
X#include <proto/all.h>
X#else
X#include "protos.h"
X#endif
Xtypedef int    bool ;
Xbool    ChkSumOK() ;
X#include <libraries/dosextens.h>
X#else
X#include <modes.h>
X#include <bool.h>
X#define DIRMODE     (S_IREAD | S_IWRITE | S_IEXEC | S_IOREAD | S_IOEXEC)
X#endif
X#define TBLOCK    512
X#define NAMSIZ    100
X
Xunion hblock {
X    char dummy[TBLOCK];
X    struct header {
X        char name[NAMSIZ];
X        char mode[8];
X        char uid[8];
X        char gid[8];
X        char size[12];
X        char mtime[12];
X        char chksum[8];
X        char linkflag;
X        char linkname[NAMSIZ];
X    } dbuf;
X};
X
X#define BLKSIZE     (sizeof (union hblock))
X#define HARDLINK    '1'
X#define SYMBLINK    '2'
X#define NORMAL        '\0'
X
Xvoid DoFile();
X
Xmain(argc, argv)
Xint    argc;
Xchar    *argv[];
X{
X    FILE        *TarFP;
X    union hblock    TarBlock;
X
X#ifndef AMIGA
X    /* make the compiler happy about formatted I/O for longs... */
X    pflinit();
X#endif
X
X    switch(argc) {
X#ifndef AMIGA
X    case 1:
X        TarFP = stdin;
X        break;
X#endif
X    case 2:
X        if ((TarFP = fopen(argv[1], "r")) == NULL) {
X            fprintf(stderr, "TarSplit: can't open %s\n", argv[1]);
X            exit(1);
X        }
X        break;
X    default:
X        fprintf(stderr, "usage: TarSplit [pathname]\n");
X        exit(1);
X    }
X
X    for (;;) {
X        if (fread((char *)&TarBlock, BLKSIZE, 1, TarFP) == NULL) {
X            fprintf(stderr, "TarSplit: premature EOF\n");
X            exit(1);
X        } else if (IsZero(&TarBlock)) {
X            while (fread((char *)&TarBlock, BLKSIZE, 1, TarFP) != NULL)
X                ;
X            break;
X        } else
X            DoFile(&TarBlock, TarFP);
X    }
X
X}
X
Xbool
XIsZero(block)
Xunion hblock    *block;
X{
X    int    i;
X    char    *cblock;
X
X    cblock = block->dummy;
X    for (i = 0; i < TBLOCK; i++)
X        if (*cblock++ != '\0')
X            return(FALSE);
X
X    return (TRUE);
X
X}
X
Xvoid
XDoFile(block, TarFP)
Xunion hblock    *block;
XFILE        *TarFP;
X{
X    long    FSize;
X    char    FName[NAMSIZ], *RefName;
X    int    i;
X    bool    IsDir, OpenOK;
X    FILE    *NewFP;
X
X    if (!ChkSumOK(block)) {
X        fprintf(stderr, "TarSplit: bad checksum, name %s?\n",
X            block->dbuf.name);
X        exit(1);
X    }
X
X    switch(block->dbuf.linkflag) {
X    case HARDLINK:
X    case SYMBLINK:
X        fprintf(stderr, "TarSplit: can't handle links\n");
X        exit(1);
X    case NORMAL:
X        break;
X    default:
X        fprintf(stderr, "TarSplit: unknown linkflag\n");
X        exit(1);
X    }
X
X#ifdef    AMIGA
X    if (sscanf(block->dbuf.size, "%12lo", &FSize) != 1) {
X#else
X    if (sscanf(block->dbuf.size, "%12O", &FSize) != 1) {
X#endif
X        fprintf(stderr, "TarSplit: bad size\n");
X        exit(1);
X    }
X
X    for (i = 0, RefName = block->dbuf.name; *RefName; i++, RefName++)
X        FName[i] = *RefName;
X
X    if (IsDir = (*(RefName - 1) == '/')) {
X        FName[i - 1] = '\0';
X        if (strcmp(FName, ".") == 0)
X            OpenOK = TRUE;
X        else
X#ifdef    AMIGA
X            {
X                BPTR Lock;
X                OpenOK = (Lock = CreateDir(FName)) != 0;
X                UnLock(Lock) ;
X            }
X#else
X            OpenOK = mknod(FName, DIRMODE) == 0;
X#endif
X    } else {
X        FName[i] = '\0';
X        OpenOK = (NewFP = fopen(FName, "w")) != NULL;
X    }
X
X    if (!OpenOK) {
X        fprintf(stderr, "TarSplit: can't create %s\n", FName);
X        exit(1);
X    }
X
X    for (; FSize > 0; FSize -= TBLOCK) {
X        if (fread((char *)block, BLKSIZE, 1, TarFP) == NULL) {
X            fprintf(stderr, "TarSplit: premature EOF\n");
X            exit(1);
X        }
X        if (!IsDir)
X            fwrite(block->dummy, 1,
X                (FSize > TBLOCK ? TBLOCK : (int) FSize), NewFP);
X    }
X
X    if (!IsDir)
X        fclose(NewFP);
X}
X
Xbool
XChkSumOK(block)
Xunion hblock    *block;
X{
X    long    Accum, ChkSumVal;
X    int    i;
X
X#ifdef    AMIGA
X    sscanf(block->dbuf.chksum, "%8lo", &ChkSumVal);
X#else
X    sscanf(block->dbuf.chksum, "%8O", &ChkSumVal);
X#endif
X    for (i = 0; i < 8; i++)
X        block->dbuf.chksum[i] = ' ';
X
X    Accum = 0;
X    for (i = 0; i < TBLOCK; i++)
X        Accum += 0xff & block->dummy[i];
X
X    return(Accum == ChkSumVal);
X
X}
END_OF_FILE
if test 4031 -ne `wc -c <'uucp2/src/unix/tarsplit.c'`; then
    echo shar: \"'uucp2/src/unix/tarsplit.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/unix/tarsplit.c'
fi
if test -f 'uucp2/src/unix/uudecode.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'uucp2/src/unix/uudecode.c'\"
else
echo shar: Extracting \"'uucp2/src/unix/uudecode.c'\" \(3321 characters\)
sed "s/^X//" >'uucp2/src/unix/uudecode.c' <<'END_OF_FILE'
X
X/*
X *  UUDECODE.C
X *
X *  $Header: Beta:src/uucp/src/compress/RCS/uudecode.c,v 1.1 90/02/02 11:48:08 dillon Exp Locker: dillon $
X *
X * uudecode [input]
X *
X * create the specified file, decoding as you go.
X * used with uuencode.
X */
X
X#include <stdio.h>
X#include "version.h"
X
XIDENT(".00");
X
X#ifdef UNIX
X# include <pwd.h>
X# include <sys/types.h>
X# include <sys/stat.h>
X#endif
X
X#ifdef VMS
X# include <types.h>
X# include <stat.h>
X#endif
X
X/* single character decode */
X#define DEC(c)  (((c) - ' ') & 077)
X
Xvoid outdec();
Xvoid decode();
Xvoid xerror();
X
Xvoid
Xmain(argc, argv)
Xchar **argv;
X{
X    FILE *in, *out;
X#ifdef UNIX | VMS
X    struct stat sbuf;
X#endif
X    int mode;
X    char dest[128];
X    char buf[80];
X
X    /* optional input arg */
X    if (argc > 1) {
X        if ((in = fopen(argv[1], "r")) == NULL) {
X            xerror(argv[1]);
X            exit(1);
X        }
X        argv++; argc--;
X    } else
X        in = stdin;
X
X    if (argc != 1) {
X        printf("Usage: uudecode [infile]\n");
X        exit(2);
X    }
X
X    /* search for header line */
X    for (;;) {
X        if (fgets(buf, sizeof buf, in) == NULL) {
X            fprintf(stderr, "No begin line\n");
X            exit(3);
X        }
X        if (strncmp(buf, "begin ", 6) == 0)
X            break;
X    }
X    sscanf(buf, "begin %o %s", &mode, dest);
X
X#ifdef UNIX
X    /* handle ~user/file format */
X    if (dest[0] == '~') {
X        char *sl;
X        struct passwd *getpwnam();
X        char *index();
X        struct passwd *user;
X        char dnbuf[100];
X
X        sl = index(dest, '/');
X        if (sl == NULL) {
X            fprintf(stderr, "Illegal ~user\n");
X            exit(3);
X        }
X        *sl++ = 0;
X        user = getpwnam(dest+1);
X        if (user == NULL) {
X            fprintf(stderr, "No such user as %s\n", dest);
X            exit(4);
X        }
X        strcpy(dnbuf, user->pw_dir);
X        strcat(dnbuf, "/");
X        strcat(dnbuf, sl);
X        strcpy(dest, dnbuf);
X    }
X#endif /* UNIX */
X
X    /* create output file */
X    out = fopen(dest, "w");
X    if (out == NULL) {
X        xerror(dest);
X        exit(4);
X    }
X#ifdef UNIX | VMS
X    chmod(dest, mode);
X#endif
X
X    decode(in, out);
X
X    if (fgets(buf, sizeof buf, in) == NULL || strcmp(buf, "end\n")) {
X        fprintf(stderr, "No end line\n");
X        exit(5);
X    }
X    exit(0);
X}
X
X/*
X * copy from in to out, decoding as you go along.
X */
X
Xvoid
Xdecode(in, out)
XFILE *in;
XFILE *out;
X{
X    char buf[80];
X    char *bp;
X    int n;
X
X    for (;;) {
X        /* for each input line */
X        if (fgets(buf, sizeof buf, in) == NULL) {
X            printf("Short file\n");
X            exit(10);
X        }
X        n = DEC(buf[0]);
X        if (n <= 0)
X            break;
X
X        bp = &buf[1];
X        while (n > 0) {
X            outdec(bp, out, n);
X            bp += 4;
X            n -= 3;
X        }
X    }
X}
X
X/*
X * output a group of 3 bytes (4 input characters).
X * the input chars are pointed to by p, they are to
X * be output to file f.  n is used to tell us not to
X * output all of them at the end of the file.
X */
X
Xvoid
Xoutdec(p, f, n)
Xchar *p;
XFILE *f;
X{
X    int c1, c2, c3;
X
X    c1 = DEC(*p) << 2 | DEC(p[1]) >> 4;
X    c2 = DEC(p[1]) << 4 | DEC(p[2]) >> 2;
X    c3 = DEC(p[2]) << 6 | DEC(p[3]);
X    if (n >= 1)
X        putc(c1, f);
X    if (n >= 2)
X        putc(c2, f);
X    if (n >= 3)
X        putc(c3, f);
X}
X
X
X/* fr: like read but stdio */
Xint
Xfr(fd, buf, cnt)
XFILE *fd;
Xchar *buf;
Xint cnt;
X{
X    int c, i;
X
X    for (i=0; i<cnt; i++) {
X        c = getc(fd);
X        if (c == EOF)
X            return(i);
X        buf[i] = c;
X    }
X    return (cnt);
X}
X
X/*
X * Return the ptr in sp at which the character c appears;
X * NULL if not found
X */
X
Xchar *
Xindex(sp, c)
Xregister char *sp, c;
X{
X    do {
X        if (*sp == c)
X            return(sp);
X    } while (*sp++);
X    return(NULL);
X}
X
Xvoid
Xxerror(err)
Xchar *err;
X{
X    printf("Can not open file \"%s\"\n", err);
X}
X
END_OF_FILE
if test 3321 -ne `wc -c <'uucp2/src/unix/uudecode.c'`; then
    echo shar: \"'uucp2/src/unix/uudecode.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/unix/uudecode.c'
fi
if test -f 'uucp2/src/uucico/modem.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'uucp2/src/uucico/modem.c'\"
else
echo shar: Extracting \"'uucp2/src/uucico/modem.c'\" \(3827 characters\)
sed "s/^X//" >'uucp2/src/uucico/modem.c' <<'END_OF_FILE'
X
X/*
X *  MODEM.C
X *
X *  (C) Copyright 1989-1990 by Matthew Dillon,  All Rights Reserved.
X *
X *  $Header: Beta:src/uucp/src/uucico/RCS/modem.c,v 1.1 90/02/02 11:56:00 dillon Exp Locker: dillon $
X */
X
X#include "includes.h"
X#include "uucp.h"
X#include "log.h"
X
XPrototype void openline(void);
XPrototype int  get_baud(void);
XPrototype void modem_init(void);
XPrototype int  dial_nbr(const char *);
XPrototype void reset_modem(void);
X
X/*
X *  NOTE:   modem stuff pretty much ignored if we are run from
X *        a getty.
X */
X
X#define MULTIMODEM    /*  I have a multi-modem    */
X
Xextern int Getty;
Xextern int IgnoreCD;
X
X
X
Xvoid
Xopenline()
X{
X    signal(SIGINT,sigint);
X    IgnoreCD |= 4;
Xstart_again:
X    chkabort();
X    if (instr("CONNECT", 7))
X    goto start_again;
X
X
X#ifdef MULTIMODEM
X
X#else
X    set_baud(get_baud());
X#endif
X    Delay(120); /* sleep 2 seconds */
X
X    IgnoreCD &= ~4;
X}
X
X#ifndef MULTIMODEM
X
Xint
Xget_baud()
X{
X/* We've seen the CONNECT message, now we must see what baud rate
X   we've connected with */
X/* gather input until \r then see if it's 300, 1200, or 2400 */
X/* this is for hayes compatibles */
X
X    int data;
X    char rate[10];
X    int rate_inx = 0;
X
X    DEBUG(2,"looking for baud rate\n",0);
X
X    while ( ((data = xgetc(BYTE_TO)) != EOF) && ((char)data != '\r')) {
X        if ((char)data == ' ') continue;
X        rate[rate_inx++] = (char)data;
X    }
X    DEBUG(2, "found baud rate of %s\n", rate);
X    if (strncmp(rate,"1200",4) == 0) return 1200;
X    if (strncmp(rate,"2400",4) == 0) return 2400;
X    if (rate_inx == 0) return 300;
X    return 1200;  /* default */
X}
X
X#endif
X
Xvoid
Xmodem_init()
X{
X    reset_modem();
X}
X
X/*
X * Simple dialer routine.  Needs replacement with a full blown
X * script driven dialer.  Next week maybe :-).    FIXME.
X */
X
Xint
Xdial_nbr(nbr)
Xconst char *nbr;
X{
X    char  *dial;
X    int   i;
X
X    IgnoreCD |= 4;
X
X    dial = malloc(strlen(nbr) + 16);
X
X    dial[0] = 0;
X    if (strncmp(nbr, "AT", 2) != 0 && strncmp(nbr, "at", 2) != 0)
X    strcpy(dial, "ATDT");
X    strcat(dial, nbr);
X    strcat(dial, "\r");
X
X    DEBUG(2,"dialing %s\n", dial);
X
X    twrite(dial, strlen(dial));
X
X    i = instr("CONNECT", 7);
X
X    if (i == 0)     /*  for those modems which don't bring CD up */
X    Delay(50);  /*  immediately                              */
X
X    IgnoreCD &= ~4;
X
X    free(dial);
X
X    return (i);
X}
X
X/*
X *  RESET_MODEM()
X *
X *  If run from a Getty we do NOT reset the modem, which would
X *  disconnect an already connected connection.
X *
X *  Note that the delay between CloseSerial() and OpenSerial() only
X *  serves to give the Getty, if running, time to lock the port and
X *  begin a disconnect sequence.
X */
X
Xvoid
Xreset_modem()
X{
X    if (Getty)          /*  called from a getty             */
X    return;
X    DEBUG(4, "Beg-Reset\n", 0);
X    CloseSerial();      /*  drop dtr            */
X    Delay(50*3);        /*  delay 3 seconds     */
X    DEBUG(4, "End-Reset-1\n", 0);
X    OpenSerial();       /*  re-open serial      */
X    DEBUG(4, "End-Reset-2\n", 0);
X}
X
X#ifdef NOTDEF
X
X    if (GettyCmd(DeviceName, DeviceUnit, '0', NULL) == 0)
X    return;
X
X    /*
X     *    Getty doesn't exist, we have to reset the modem ourselves!
X     */
X
X    IgnoreCD |= 4;
X
X#ifdef MULTIMODEM
X    set_baud(19200);
X
X    if (CheckCarrier()) {
X    Delay(60);
X    twrite("+++", 3);
X    Delay(120);
X    }
X    twrite("ATH0\r", 5);
X    instr("OK\r\n", 4);
X    twrite("ATZ\r", 4);
X    instr("OK\r\n", 4);
X    twrite("ATZ\r", 4);
X    instr("OK\r\n", 4);
X
X    /*amiga_closeopen();*/
X    sprintf(init, "%s\r", "ATM0S0=2X4$BA0");
X    if (debug > 0)
X    init[3] = '1';
X    twrite(init, strlen(init));
X    instr("OK\r\n",4);
X#else
X    twrite("+++", 3);
X    Delay(60);
X    twrite("ATH0\r", 5);
X    Delay(120);
X    twrite("ATZ\r", 4);
X    Delay(60);
X    twrite("ATZ\r", 4);
X    Delay(60);
X    sprintf(init, "%s\r", "ATS2");
X    twrite(init, strlen(init));
X    Delay(60);
X#endif
X    IgnoreCD &= ~4;
X}
X
X#endif
X
END_OF_FILE
if test 3827 -ne `wc -c <'uucp2/src/uucico/modem.c'`; then
    echo shar: \"'uucp2/src/uucico/modem.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/uucico/modem.c'
fi
if test -f 'uucp2/src/uucico/uucp.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'uucp2/src/uucico/uucp.c'\"
else
echo shar: Extracting \"'uucp2/src/uucico/uucp.c'\" \(4098 characters\)
sed "s/^X//" >'uucp2/src/uucico/uucp.c' <<'END_OF_FILE'
X
X/*
X *   UUCP.c written by William Loftus
X *   Copyright 1988 by William Loftus.    All rights reserved.
X *
X *  $Header: Beta:src/uucp/src/uucico/RCS/uucp.c,v 1.1 90/02/02 11:56:13 dillon Exp Locker: dillon $
X *
X */
X
X#include <stdio.h>
X#include <stdlib.h>
X#include <string.h>
X#include "version.h"
X
XIDENT(".01");
X
Xchar to_buf[128];
Xchar from_buf[128];
Xchar path[128];
Xchar user[8];
X
Xchar command_file[128];
Xint seq;
X
Xvoid BuildReceiveFile();
Xvoid BuildSendFile();
Xvoid read_ctl();
Xchar *expand_file();
Xchar *strchr();
Xchar *getcwd();
X
X#define TRUE 1
X#define FALSE 0
X
XCXBRK()
X{
X    return(0);
X}
X
Xvoid
Xmain(argc,argv)
Xint argc;
Xchar **argv;
X{
X    int to_bang, from_bang;
X
X    if (argc != 3) {
X    printf("Usage: UUCP from_file to_file\n");
X    exit(1);
X    } else {
X    strcat(from_buf, argv[1]);
X    strcat(to_buf, argv[2]);
X    }
X
X    getcwd(path,128);
X
X    if (chdir(GetConfigDir(UUSPOOL))) {
X    printf("Couldn't change current working directory to %s\n", GetConfigDir(UUSPOOL));
X    exit(1);
X    }
X
X    read_ctl();
X
X    seq = GetSequence(2);
X    if (seq < 0) {
X    chdir(path);
X    exit(1);
X    }
X
X    from_bang = (int)strchr(from_buf,'!');
X    to_bang = (int)strchr(to_buf,'!');
X
X    if (from_bang && to_bang) {
X    printf("Can not specify a remote system in both arguments.\n");
X    chdir(path);
X    exit(1);
X    }
X
X    if (from_bang) {
X    BuildReceiveFile();
X    }
X
X    if (to_bang) {
X    BuildSendFile();
X    }
X
X    chdir(path);
X    exit(0);
X}
X
Xvoid
XBuildSendFile()
X{
X    FILE *fp;
X    char system_name[32];
X    int bang;
X
X    strcpy(from_buf,expand_file(from_buf));
X
X    bang = (int)strchr(to_buf,'!');
X    bang = bang - (int)to_buf;
X
X    strncpy(system_name,to_buf,bang);
X
X    system_name[bang] = '\0';
X
X    if (!is_in_L_sys_file(system_name)) {
X    printf("System \"%s\" not in L.sys file.\n", system_name);
X    chdir(path);
X    exit(1);
X    }
X
X    system_name[7] = '\0';
X
X    sprintf(command_file,"C.%sA%04d", system_name, seq++);
X
X    LockFile(command_file);
X
X    fp = fopen(command_file,"w");
X
X    if (fp) {
X    /* srcnam desnam who flags temp mode who */
X    fprintf(fp,"S %s %s %s %s %s %s %s\n",
X        from_buf,
X        to_buf + bang + 1,
X        user,
X        "-c",
X        from_buf,
X        "0666",
X        user
X    );
X    fclose(fp);
X    } else {
X    UnLockFile(command_file);
X    perror(command_file);
X    chdir(path);
X    exit(1);
X    }
X    UnLockFile(command_file);
X    printf("Command queue for transfer to %s.\n", system_name);
X}
X
Xvoid
XBuildReceiveFile()
X{
X    FILE *fp;
X    char system_name[32];
X    int bang;
X
X    strcpy(to_buf,expand_file(to_buf));
X
X    bang = (int)strchr(from_buf,'!');
X    bang = bang - (int)from_buf;
X
X    strncpy(system_name,from_buf,bang);
X
X    system_name[bang] = '\0';
X
X    if (!is_in_L_sys_file(system_name)) {
X    printf("System \"%s\" not in L.sys file.\n", system_name);
X    chdir(path);
X    exit(1);
X    }
X
X    system_name[7] = '\0';
X
X    sprintf(command_file,"C.%sA%04d", system_name, seq++);
X
X    LockFile(command_file);
X
X    fp = fopen(command_file,"w");
X    if (fp) {
X    /* srcnam desnam who flags */
X    fprintf(fp,"R %s %s %s %s\n",
X        from_buf + bang + 1,
X        to_buf,
X        user,
X        "-c"
X    );
X    fclose(fp);
X    } else {
X    UnLockFile(command_file);
X    perror(command_file);
X    chdir(path);
X    exit(1);
X    }
X    UnLockFile(command_file);
X    printf("Command queue for transfer from %s.\n", system_name);
X}
X
Xstatic char name[128];
X
Xchar *
Xexpand_file(file_name)
Xchar *file_name;
X{
X    char *colon;
X
X    colon = strchr(file_name,':');
X    if ((colon != (char*)NULL) && (colon != file_name)) {
X    return(file_name);
X    } else {
X    if (path[strlen(path)-1] != ':') {
X        sprintf(name,"%s/%s",path,file_name);
X        return name;
X    } else {
X        sprintf(name,"%s%s",path,file_name);
X        return name;
X    }
X    }
X}
X
X#define CTL_DELIM " \t\r\n"
X
X/*
X * Read the control file and grab a few parameters.
X */
X
Xvoid
Xread_ctl()
X{
X    FILE  *fd;
X    static char  buf[128];
X
X    if (! (fd = fopen(MakeConfigPath(UULIB, "Config"), "r"))) {
X    printf("Can't Find config file.\n");
X    chdir(path);
X    exit(3);
X    }
X
X    while (NULL != fgets(buf, sizeof buf, fd)) {
X    if (strncmp(buf, "UserName", 8) == 0)
X        strcpy(user, strtok(&buf[9], CTL_DELIM) ) ;
X    }
X    fclose(fd);
X}
X
X
END_OF_FILE
if test 4098 -ne `wc -c <'uucp2/src/uucico/uucp.c'`; then
    echo shar: \"'uucp2/src/uucico/uucp.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/uucico/uucp.c'
fi
if test -f 'uucp2/src/uucico/uux.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'uucp2/src/uucico/uux.c'\"
else
echo shar: Extracting \"'uucp2/src/uucico/uux.c'\" \(3324 characters\)
sed "s/^X//" >'uucp2/src/uucico/uux.c' <<'END_OF_FILE'
X
X/*
X *  UUX.C
X *
X *  $Header: Beta:src/uucp/src/uucico/RCS/uux.c,v 1.1 90/02/02 11:56:20 dillon Exp Locker: dillon $
X *
X *  Copyright 1988 by William Loftus.    All rights reserved.
X *
X *  Example: 1> uux mail-message "burdvax!rmail wpl"
X */
X
X#include <stdio.h>
X#include <stdlib.h>
X#include <string.h>
X#include "version.h"
X
XIDENT(".02");
X
Xchar user[128];
Xchar file_name[128];
Xchar command[128];
X
Xchar exec_file[128];
Xchar x_exec_file[128];
Xchar command_file[128];
Xchar data_file[128];
Xint seq;
X
Xchar path[128];
X
Xvoid GetTo();
Xvoid GetSubject();
X
X#define TRUE 1
X#define FALSE 0
X
Xint
Xbrk()
X{
X    return(0);
X}
X
Xvoid
Xmain(argc, argv)
Xint argc;
Xchar **argv;
X{
X    int error;
X    char *up = FindConfig(USERNAME);
X
X    onbreak(brk);
X    if (up == NULL) {
X    printf("couldn't find domain entry for %s\n", USERNAME);
X    exit(1);
X    }
X    strcpy(user, up);
X
X    getcwd(path,128);
X    chdir(GetConfigDir(UUSPOOL));
X    if (argc == 3) {
X    strcpy(file_name, argv[1]);
X    strcpy(command, argv[2]);
X    } else {
X    printf("Usage: uux file-name command\n");
X    printf("Example: 1> uux mail-message \"burdvax!rmail wpl\"\n");
X    chdir(path);
X    exit(1);
X    }
X    seq = GetSequence(4);
X    if (seq >= 0)
X    error = Queue();
X    UnLockFile(exec_file);
X    UnLockFile(x_exec_file);
X    UnLockFile(command_file);
X    UnLockFile(data_file);
X    chdir(path);
X    if (seq < 0 || error < 0)
X    exit(1);
X}
X
XQueue()
X{
X    FILE *fp;
X    char system_name[32];
X    int bang;
X    int error;
X
X    bang = (int)strchr(command,'!');
X    bang = bang - (int)command;
X
X    strncpy(system_name,command,bang);
X
X    system_name[bang] = '\0';
X
X    if (!is_in_L_sys_file(system_name)) {
X    printf ("System \"%s\" not in L.sys file.\n", system_name);
X    return(-1);
X    }
X
X    system_name[7] = '\0';
X
X    sprintf(exec_file,"D.%sX%04d", system_name, seq++);
X    sprintf(x_exec_file,"X.%sX%04d", system_name, seq++);
X    sprintf(command_file,"C.%sA%04d", system_name, seq++);
X    sprintf(data_file,"D.%sB%04d", system_name, seq);
X
X    LockFile(exec_file);
X    LockFile(x_exec_file);
X    LockFile(command_file);
X    LockFile(data_file);
X
X    fp = fopen(exec_file,"w");
X    if (fp) {
X    fprintf(fp,"U %s\n", user);
X    fprintf(fp,"F %s\n", data_file);
X    fprintf(fp,"I %s\n", data_file);
X    fprintf(fp,"C %s\n", (char *)command + bang + 1);
X    fclose(fp);
X    } else {
X    perror(exec_file);
X    return(-1);
X    }
X
X    fp = fopen(command_file,"w");
X    if (fp) {
X    fprintf(fp,"S %s %s %s - %s 0666\n",
X        data_file,
X        data_file,
X        user,
X        data_file
X    );
X    fprintf(fp,"S %s %s %s - %s 0666\n",
X        exec_file,
X        x_exec_file,
X        user,
X        exec_file
X    );
X    fclose(fp);
X    } else {
X    perror(command_file);
X    return(-1);
X    }
X    chdir(path);
X    error =  Copy(file_name, data_file);
X    chdir(GetConfigDir(UUSPOOL));
X    return(error);
X}
X
X/*
X * Read the control file and grab a few parameters.
X */
X
XCopy(from, to)
Xchar *from;
Xchar *to;
X{
X    FILE *fd;
X    FILE *td;
X    int c;
X    static char to_buf[128];
X
X    fd = fopen(from, "r");
X    if (!fd) {
X    printf("Could not open %s.\n", from);
X    perror(from);
X    return(-1);
X    }
X
X    strcpy(to_buf, MakeConfigPath(UUSPOOL, to));
X
X    td = fopen(to_buf, "w");
X    if (!td) {
X    printf("Could not open %s.\n", to_buf);
X    perror(to);
X    return(-1);
X    }
X    while ((c = fgetc(fd)) != EOF) {
X    fputc((char)c, td);
X    }
X    fclose(fd);
X    fclose(td);
X    return(1);
X}
X
X
END_OF_FILE
if test 3324 -ne `wc -c <'uucp2/src/uucico/uux.c'`; then
    echo shar: \"'uucp2/src/uucico/uux.c'\" unpacked with wrong size!
fi
# end of 'uucp2/src/uucico/uux.c'
fi
echo shar: End of archive 4 \(of 12\).
cp /dev/null ark4isdone
MISSING=""
for I in 1 2 3 4 5 6 7 8 9 10 11 12 ; do
    if test ! -f ark${I}isdone ; then
    MISSING="${MISSING} ${I}"
    fi
done
if test "${MISSING}" = "" ; then
    echo You have unpacked all 12 archives.
    rm -f ark[1-9]isdone ark[1-9][0-9]isdone
else
    echo You still need to unpack the following archives:
    echo "        " ${MISSING}
fi
##  End of shell archive.
exit 0
--
Mail submissions (sources or binaries) to <[e-mail]>.
Mail comments to the moderator at <[e-mail]>.
Post requests for sources, and general discussion to comp.sys.amiga.